home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib09.dsk / SR140-FRACTIONS FORMAT.txt < prev    next >
Text File  |  2023-02-26  |  568b  |  9 lines
  1.  
  2.  140 VI =  INT (V):F = V - VI:F$ = "   "
  3.  141  IF F > .0625 THEN F$ = "1/8": IF F > .1625 THEN F$ = "1/5": IF F > .225 THEN F$ = "1/4": IF F > .291666667 THEN F$ = "1/3": IF F > .354166667 THEN F$ = "3/8": IF F > .3875 THEN F$ = "2/5": IF F > .45 THEN F$ = "1/2": GOTO 143
  4.  142  GOTO 144
  5.  143  IF F > .55 THEN F$ = "4/5": IF F > .6125 THEN F$ = "5/8": IF F > .645833333 THEN F$ = "3/4": IF F > .775 THEN F$ = "4/5": IF F > .8375 THEN F$ = "7/8": IF F > .9375 THEN F$ = "":VI = VI + 1
  6.  144 VI$ =  STR$ (VI): IF VI = 0 THEN VI$ = " "
  7.  145 F$ = VI$ + " " + F$: RETURN 
  8.  
  9.